COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TEST1"
C00004 ENDMK
C⊗;
BEGIN "TEST1"
	DEFINE α="COMMENT";
	DEFINE π="3.1415927";
	REQUIRE "GEOMES.HDR[GEM,HE]" SOURCE_FILE;

	INTEGER B1,B2,F,E,V,V0,T;
	INTEGER WORLD,WINDOW,CAMERA;

	MKUNIV;
	B1 ← MKCUBE(4.0,1.0,2.0);
	B2 ← MKCUBE(3.99,0.99,1.99);
	TRANSL(B1,0,0,7);
	ROTATE(B1,π/400,π/410,0);
	GEODPY;INCHRW;
	SHOW1(0,1);
WHILE TRUE DO 
BEGIN
	ROTATE(B1,π/30,π/32,0);
	ROTATE(B2,π/35,-π/40,0);
	SHOW2(0,1);
END;
END "TEST1"; BGB 19 MARCH 1973.